home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].po / SAVER.ASM.txt < prev    next >
Text File  |  1996-12-24  |  11KB  |  573 lines
  1.  
  2.  
  3. **********************************
  4. *                                *
  5. *    SAVER.ASM Source Code       *
  6. *        by Thomas Dorris        *
  7. *                                *
  8. *        Copyright (c) 1990      *
  9. *       MindCraft Publ. Corp.    *
  10. *        Concord, MA  01742      *
  11. *         Orca/M Assembler       *
  12. ********************************** 
  13.  
  14.          MCOPY SAVER.MAC
  15.          KEEP  SAVER
  16.  
  17. *
  18. *  Global equates
  19. *
  20.            keep     'rampatch'
  21.            org      $9c00
  22.  
  23. COL80CLR GEQU   $E1C00C                 ;Sets 40 column mode
  24. OS_ID    GEQU   $E100BC                 ;1 for ProDOS 16
  25. SCREEN   GEQU   $E12000                 ;Super Hires screen
  26. BANK0    GEQU   $000C00                 ;Start Bank0 program
  27.  
  28.  
  29. MAIN     START 
  30.  
  31.  
  32. *
  33. *  Initial data for a Classic Desk Accessory
  34. *
  35.  
  36.  
  37.          STR   'Screen Saver'           ;Title of CDA
  38.          DC    I4'SSSTART'              ;starting code
  39.          DC    I4'SSEND'                ;shutdown code
  40.  
  41.  
  42. *
  43. *
  44. *  Main code block
  45. *
  46. *
  47.  
  48.  
  49. SSSTART  PHK
  50.          PLB                            ;Set data bank
  51.  
  52.          SEP   #$20
  53.          STA   COL80CLR
  54.          REP   #$30 
  55.  
  56.          LDA   #TITLE
  57.          JSR   DISPLAY                  ;Clear screen
  58.  
  59.          JSR   GETLINE                  ;Input name of file
  60.          AND   #$00FF                   ;Acc contains length
  61.          BEQ   SSEND                    ;If length=0, exit
  62.  
  63.          LDA   #$A3                     ;Display screen
  64.          STA   $E1C029
  65.  
  66.          JSR   CHCKID
  67.          BEQ   PRO16
  68.  
  69.          JSR   DOPRO8
  70.          BNE   ERROR 
  71.          BRA   CLS2
  72.  
  73. PRO16    DESTROY CREATEPARM             ;Close and delete file
  74.          BCC   CRT
  75.          CMP   #$46
  76.          BNE   ERROR 
  77.  
  78. CRT      CREATE CREATEPARM              ;Create new file
  79.          BCS   ERROR
  80.  
  81.          OPEN  OPENPARM
  82.          BCS   ERROR
  83.  
  84.          LDA   OPENPARM                 ;Save reference number
  85.          STA   WRITEPARM
  86.  
  87.          WRITE WRITEPARM                ;Write screen data to disk
  88.          BCS   ERROR
  89.  
  90. CLS      CLOSE OPENPARM                 ;Close and return
  91. CLS2     JSR   DSPOFF
  92.  
  93. SSEND    RTL
  94.  
  95.  
  96. *
  97. *
  98. *  Error code.  Displays error message and exits
  99. *
  100. *
  101.  
  102. ERROR    PHA
  103.  
  104.          JSR   DSPOFF                   ;Set text mode
  105.          LDA   #ERRMSG 
  106.          JSR   DISPLAY                  ;print error message
  107.  
  108.          PLA 
  109.  
  110.          SEP   #$20
  111.          LONGA OFF
  112.  
  113.          PHA
  114.          AND   #$F
  115.          TAX
  116.          LDA   LST,X
  117.          ORA   #$80
  118.          STA   $E0053A
  119.          PLA
  120.          LSR   A
  121.          LSR   A
  122.          LSR   A
  123.          LSR   A
  124.          TAX
  125.          LDA   LST,X
  126.          ORA   #$80 
  127.          STA   $E00539
  128.          REP   #$30
  129.  
  130.          LONGA ON 
  131.  
  132. WT       LDA   $E1BFFF                  ;Get key
  133.          BPL   WT
  134.          STA   $E1C010 
  135.  
  136.          JSR   CHCKID
  137.          BNE   CLS2
  138.  
  139.          BRA   CLS                      ;Close if opened and exit
  140.  
  141. LST      ASC   '0123456789ABCDEF' 
  142.  
  143. DSPOFF   LDA   #$1                      ;Go to text mode
  144.          STA   $E1C029
  145.          RTS
  146.  
  147. CHCKID   LDA   OS_ID
  148.          AND   #$00FF
  149.          CMP   #$1
  150.          RTS
  151.  
  152. *
  153. *
  154. *  Clears screen and displays message block
  155. *
  156. *
  157.  
  158.  
  159. DISPLAY  LDX   #$3FE
  160.          STA   LOADADR+1
  161.          STA   LDADR1+1 
  162.          LDA   #$A0A0
  163. CLEAR    STA   $E00400,X                ;Store space
  164.          DEX
  165.          DEX
  166.          BPL   CLEAR
  167.  
  168.          LDY   #$FFFE
  169.  
  170. INCRY    INY
  171.          INY
  172.  
  173.  
  174. LOADADR  LDX   TITLE,Y                  ;Get screen address
  175.          BEQ   DISPDONE                 ;If zero, end of data
  176.  
  177. INCRX    INY
  178.          INY
  179. LDADR1   LDA   TITLE,Y                  ;Get character
  180.          BEQ   INCRY                    ;If zero, get next line
  181.          ORA   #$8080 
  182.          STA   $E00400,X
  183.          INX
  184.          INX 
  185.          BRA   INCRX
  186.  
  187. DISPDONE RTS
  188.  
  189.  
  190. *
  191. *
  192. *  Input line.  Ignores all but alphanumeric keys
  193. *
  194. *
  195.  
  196.  
  197. GETLINE  LDA   #NAME-STRT8+START8       ;location of P8 path
  198.          STA   ZPG2+1
  199.          INC   A
  200.          STA   ZPG1+1 
  201.           
  202.          SEP   #$20                     ;8-bit accumulator mode
  203.          LONGA OFF
  204.  
  205. GETKEY1  LDX   #0
  206.  
  207. GETKEY   LDA   #$2E
  208.          STA   $E00528,X
  209.  
  210.          JSR   WAIT                     ;Get key and mask
  211.          AND   #$7F
  212.  
  213.          CMP   #$60                     ;Convert to upper case
  214.          BCC   UPPER
  215.          EOR   #$20 
  216.  
  217. UPPER    CMP   #$8
  218.          BNE   NTBKSP
  219.  
  220. BKSP     LDA   #$AE                     ;delete cursor
  221.          STA   $E00528,X
  222.          DEX                            ;Decrease counter
  223.          BPL   GETKEY
  224.          BMI   GETKEY1
  225.  
  226. NTBKSP   CMP   #$5F                     ;If delete, do backspace
  227.          BEQ   BKSP 
  228.  
  229.          CMP   #$20                     ;If SPACE,screen display
  230.          BEQ   SCNDIS
  231.  
  232.          CMP   #$1B                     ;If ESC, exit
  233.          BEQ   ESC
  234.  
  235.          CMP   #$0D                     ;If return, done
  236.          BEQ   KEYDONE 
  237.  
  238.          CMP   #$2E
  239.          BCC   GETKEY                   ;Check for period and slash
  240.          CMP   #$3A
  241.          BCC   KEYOK
  242.  
  243.          CMP   #$41                     ;Check for alpha-keys
  244.          BCC   GETKEY
  245.          CMP   #$5B
  246.          BCS   GETKEY
  247.  
  248. KEYOK    STA   BUF+1,X                  ;Store key in buffer (P16)
  249. ZPG1     STA   NAME+1,X                 ;Store key in buffer (P8) 
  250.          ORA   #$80
  251.          STA   $E00528,X                ;Display on screen
  252.          CPX   #38
  253.          BEQ   GETKEY
  254.          INX
  255.          BRA   GETKEY
  256.  
  257. SCNDIS   LDA   #$A3
  258.          STA   $E1C029 
  259.          JSR   WAIT
  260.          LDA   #1
  261.          STA   $E1C029
  262.          BRA   GETKEY 
  263.  
  264. ESC      LDX   #0
  265. KEYDONE  TXA
  266.          STA   BUF
  267. ZPG2     STA   NAME 
  268.          REP   #$30
  269.          LONGA ON
  270.  
  271.          RTS 
  272.  
  273.  
  274. WAIT     LDA   $E1C000
  275.          BPL   WAIT
  276.          STA   $E1C010
  277.          RTS
  278.  
  279. *
  280. *
  281. *  Swap bank 0, execute, & swap back
  282. *
  283. *
  284.  
  285. DOPRO8   JSR   SWAP                     ;Swap in Bank0 code
  286.  
  287.          JSL   BANK0                    ;Execute
  288.  
  289.          PHA
  290.          JSR   SWAP                     ;Replace original data
  291.          PLA
  292.          RTS 
  293.  
  294.  
  295. SWAP     LDX   #END8-START8-2           ;length of Bank0 code
  296. SWAP1    LDA   START8,X
  297.          PHA
  298.  
  299.          DC    I1'$BF,0,8,0'            ;=LDA BANK0,X
  300.  
  301.          STA   START8,X
  302.          PLA
  303.  
  304.          DC    I1'$9F,0,8,0'            ;=STA BANK0,X
  305.  
  306.          DEX
  307.          DEX
  308.          BPL   SWAP1
  309.          RTS
  310.  
  311.  
  312. *
  313. *
  314. *  Title screen data
  315. *
  316. *
  317.  
  318.  
  319. TITLE    DC    I2'$00B'
  320.          ASC   'Nibble Screen Saver '
  321.          DC    I2'0'
  322.  
  323.          DC    I2'$08E' 
  324.          ASC   'Thomas Dorris '
  325.          DC    I2'0'
  326.  
  327.          DC    I2'$380' 
  328.          ASC   'Enter name to save screen as: '
  329.          DC    I2'0'
  330.  
  331.          DC    I2'$028'
  332.          ASC   'Include prefix and subdirectory '
  333.          DC    I2'0'
  334.  
  335.          DC    I2'$128'
  336.          ASC   '....................................... '
  337.          DC    I2'0'
  338.  
  339.          DC    I2'$3A8'
  340.          ASC   'Press [SPACE] to view screen'
  341.          DC    I2'0'
  342.  
  343.          DC    I2'$0D0' 
  344.          ASC   'Press [ESC] to abort to accessories '
  345.          DC    I2'0'
  346.  
  347.          DC    I2'0' 
  348.  
  349.  
  350. * 
  351. *
  352. *  Error message data
  353. *
  354. *
  355.  
  356.  
  357. ERRMSG   DC    I2'$12D'
  358.          ASC   'Error code $   has occurred!'
  359.          DC    I2'0' 
  360.  
  361.          DC    I2'$2AD'
  362.          ASC   'Press any key to abort'
  363.          DC    I2'0'
  364.  
  365.          DC    I2'0' 
  366.  
  367.  
  368. *
  369. *
  370. *  ProDOS information
  371. *
  372. *
  373.  
  374. BUF      DS    40                       ;File name
  375. HNDL     DC    I4'START8'
  376.  
  377.  
  378. OPENPARM DS    2                        ;Room for reference #
  379.          DC    I4'BUF'                  ;Filename pointer
  380.          DC    I4'HNDL'                 ;IO buffer handle
  381.  
  382.  
  383. CREATEPARM DC  I4'BUF'                  ;Filename
  384.          DC    I2'$C3'                  ;Access type
  385.          DC    I2'$C1'                  ;File type
  386.          DC    I4'0'                    ;Aux type
  387.          DC    I2'1'                    ;Storage type
  388.          DC    I4'0'                    ;Date stuff
  389.  
  390.  
  391. WRITEPARM DS   2                        ;number location
  392.          DC    I4'SCREEN'               ;super hires screen
  393.          DC    I4'32768'                ;Length of screen data
  394.          DC    I4'0'                    ;Room for amount written
  395.  
  396.  
  397. START8   ANOP
  398.  
  399.  
  400. *
  401. *
  402. *  ProDOS 8 equates
  403. *
  404. *
  405.  
  406. MLI      EQU   $BF00                    ;ProDOS 8 MLI call
  407. BITMAP   EQU   $BF58                    ;areas available for ProDOS
  408. MLIACT   EQU   $BF9B                    ;Bit 7 tells if active
  409. ZPAGE    EQU   $FA                      ;Used as pointer
  410.  
  411. CCREATE  EQU   $C0
  412. CDESTROY EQU   $C1 
  413. COPEN    EQU   $C8
  414. CWRITE   EQU   $CB
  415. CCLOSE   EQU   $CC 
  416.  
  417.  
  418. *
  419. *
  420. *  ProDOS 8 main routine
  421. *
  422. *
  423.  
  424.          OBJ   $800 
  425.  
  426. STRT8    ANOP
  427.  
  428. OPNBUF   DS    1024 
  429.  
  430.          PHD                            ;Save direct page
  431.          PEA   $0000
  432.          PLD
  433.  
  434.          PHB
  435.          PHK
  436.          PLB
  437.  
  438.          LDA   ZPAGE                    ;Save zero page usage
  439.          PHA
  440.          LDA   ZPAGE+2
  441.          PHA
  442.  
  443.          LDA   #SCREEN                  ;Set up pointer to screen
  444.          STA   ZPAGE
  445.          LDA   #^SCREEN
  446.          STA   ZPAGE+2 
  447.  
  448.          LONGA OFF
  449.          LONGI OFF 
  450.  
  451.          SEC
  452.          XCE
  453.          SEP   #$20
  454.  
  455.          LDA   BITMAP+1
  456.          STA   MAPBYTE
  457.          STZ   BITMAP+1
  458.  
  459.          JSR   MLI                      ;Destroy file
  460.          DC    I1'CDESTROY'
  461.          DC    I2'DESTPARM8'
  462.  
  463.          BEQ   DESTOK
  464.          CMP   #$46                     ;FILE NOT FOUND
  465.          BNE   EXIT
  466.  
  467. DESTOK   JSR   MLI                      ;Create file
  468.          DC    I1'CCREATE'
  469.          DC    I2'CREATEPARM8'
  470.          BNE   EXIT
  471.  
  472.          JSR   MLI                      ;Open file
  473.          DC    I1'COPEN'
  474.          DC    I2'OPENPARM8'
  475.          BNE   EXIT 
  476.  
  477.          LDA   OPENREF
  478.          STA   WRITEREF
  479.          STA   CLSREF 
  480.           
  481. MOVEMORE LDY   #0
  482. MOVE     LDA   [ZPAGE],Y
  483.          STA   WRTBUF,Y
  484. NOINC    INY
  485.          BNE   MOVE
  486.  
  487.          INC   ZPAGE+1 
  488.  
  489.          JSR   MLI                      ;Write next segment
  490.          DC    I1'CWRITE'
  491.          DC    I2'WRITEPARM8'
  492.          BNE   EXIT
  493.  
  494.          LDA   ZPAGE+1
  495.          CMP   #$A0
  496.          BNE   MOVEMORE 
  497.  
  498.          LDA   #0                       ;Load Acc with no error
  499.  
  500. EXIT     STA   ERROR8
  501.  
  502.          JSR   MLI
  503.          DC    I1'CCLOSE'
  504.          DC    I2'CLOSEPARM8'
  505.  
  506.          LDA   MAPBYTE                  ;Restore original bitmap
  507.          STA   BITMAP+1 
  508.  
  509.          LONGA ON
  510.          LONGI ON 
  511.           
  512.          CLC
  513.          XCE
  514.          REP   #$30
  515.  
  516.          PLA
  517.          STA   ZPAGE+2
  518.          PLA
  519.          STA   ZPAGE 
  520.  
  521.          LDA   ERROR8
  522.          AND   #$00FF
  523.  
  524.          PLB
  525.          PLD
  526.  
  527.          RTL 
  528.  
  529. *
  530. *
  531. *  ProDOS 8 parms
  532. *
  533. *
  534.  
  535. WRTBUF   DS    256
  536. ERROR8   DS    1
  537. MAPBYTE  DS    1
  538.  
  539. NAME     DS    40
  540.  
  541. DESTPARM8 DC   I1'1'
  542.          DC    I2'NAME'
  543.  
  544. CREATEPARM8 DC  I1'7'
  545.          DC    I2'NAME'
  546.          DC    I1'$C3'
  547.          DC    I1'$C1'
  548.          DC    I2'0'
  549.          DC    I1'1'
  550.          DC    I2'0'
  551.          DC    I2'0'
  552.  
  553. OPENPARM8 DC    I1'3'
  554.          DC    I2'NAME'
  555.          DC    I2'OPNBUF'
  556. OPENREF  DC    I1'1'
  557.  
  558. WRITEPARM8 DC   I1'4'
  559. WRITEREF DC    I1'1'
  560.          DC    I2'WRTBUF'
  561.          DC    I2'256'
  562.          DC    I2'0'
  563.  
  564. CLOSEPARM8 DC   I1'1'
  565. CLSREF   DC    I1'1'          
  566.  
  567.  
  568.          OBJEND
  569.  
  570. END8     ANOP
  571.  
  572.          END 
  573.